home *** CD-ROM | disk | FTP | other *** search
/ Inventor Labs: Transportation / InventorLabs - Transportation.iso / pc / builders / media / netacess / url95.dir / 00018_Script_18 < prev    next >
Text File  |  1996-10-10  |  1KB  |  45 lines
  1. on enterFrame
  2.   global TheWeb,WebError,AOLCount,OnlineCount 
  3.   global BrowserRun, AOLOnline, AOLBusy 
  4.   --
  5.   -- this handler initiates the AOL registration process
  6.   --
  7.   
  8.   
  9.   --
  10.   -- initialise the AOLCount varriable to 0
  11.   -- we will use it later to "track" false
  12.   -- returns from the AOLRunning method
  13.   --
  14.   set AOLCount = 0 
  15.   set OnlineCount = 0
  16.   
  17.   set the text of member "Password" to ""
  18.   set the text of member "UserName" to ""
  19.   
  20.   set WebError = TheWeb(mRegisterAOL)
  21.   
  22. end 
  23.  
  24. on exitFrame
  25.   global TheWeb,WebError,AOLCount,OnlineCount 
  26.   
  27.   
  28.   if WebError <> 0 then
  29.     --
  30.     -- we were unable to launch the registration process,
  31.     -- so go back to the beginning of the application
  32.     --
  33.     
  34.     set the text of member "ErrorReport" to TheWeb(mGetWebError,WebError)
  35.     set BrowserRun = TheWeb(mIsBrowserRunning)
  36.     set AOLOnline = TheWeb(mIsAOLOnline)
  37.     set AOLBusy = TheWeb(mIsAOLBusy)
  38.     set AOLReg = TheWeb(mIsAOLRegistered)
  39.     
  40.     go "AOLHalt"
  41.     
  42.   end if
  43.   
  44.   
  45. end